home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form w_general_demo
- BorderStyle = 3 'Fixed Dialog
- Caption = "General Controls Demo"
- ClientHeight = 4830
- ClientLeft = 2145
- ClientTop = 2355
- ClientWidth = 6480
- Height = 5235
- Icon = "ct_genrl.frx":0000
- Left = 2085
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MDIChild = -1 'True
- MinButton = 0 'False
- ScaleHeight = 4830
- ScaleWidth = 6480
- ShowInTaskbar = 0 'False
- Top = 2010
- Width = 6600
- Begin VB.CommandButton Command1
- Caption = "E&xit"
- BeginProperty Font
- name = "MS Sans Serif"
- charset = 0
- weight = 700
- size = 8.25
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- Height = 435
- Left = 2700
- TabIndex = 3
- Top = 4200
- Width = 1035
- End
- Begin FrameLibCtl.ctFrame ctFrame1
- Height = 1575
- Left = 300
- TabIndex = 0
- Top = 240
- Width = 5895
- _version = 65536
- _extentx = 10398
- _extenty = 2778
- _stockprops = 32
- outerwidth = 6
- outerborder = 4
- backcolor = 12632256
- bordercolor = 16777215
- Begin VB.Label Label1
- Alignment = 2 'Center
- Caption = $"ct_genrl.frx":030A
- BeginProperty Font
- name = "MS Sans Serif"
- charset = 0
- weight = 400
- size = 9.75
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- ForeColor = &H00800000&
- Height = 1215
- Left = 180
- TabIndex = 1
- Top = 120
- Width = 5475
- End
- End
- Begin GroupLib.ctGroup ctGroup1
- Height = 2355
- Left = 240
- TabIndex = 2
- Top = 2280
- Width = 2055
- _version = 65536
- _extentx = 3625
- _extenty = 4154
- _stockprops = 70
- caption = "Check Boxes"
- BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 700
- size = 8.25
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- Begin CheckLib.ctCheck ctCheck4
- Height = 315
- Left = 240
- TabIndex = 8
- Top = 1800
- Width = 1635
- _version = 65536
- _extentx = 2884
- _extenty = 556
- _stockprops = 70
- caption = "User Defined"
- BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 400
- size = 9.76
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- picturetrue = "ct_genrl.frx":0410
- picturefalse = "ct_genrl.frx":0732
- picstyle = 0
- End
- Begin CheckLib.ctCheck ctCheck3
- Height = 315
- Left = 240
- TabIndex = 7
- Top = 1320
- Width = 1575
- _version = 65536
- _extentx = 2778
- _extenty = 556
- _stockprops = 70
- caption = "Style #3"
- BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 400
- size = 9.76
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- picstyle = 3
- End
- Begin CheckLib.ctCheck ctCheck2
- Height = 315
- Left = 240
- TabIndex = 6
- Top = 840
- Width = 1455
- _version = 65536
- _extentx = 2566
- _extenty = 556
- _stockprops = 70
- caption = "Style #2"
- BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 400
- size = 9.76
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- picstyle = 2
- End
- Begin CheckLib.ctCheck ctCheck1
- Height = 315
- Left = 240
- TabIndex = 5
- Top = 360
- Width = 1515
- _version = 65536
- _extentx = 2672
- _extenty = 556
- _stockprops = 70
- caption = "Style #1"
- BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 400
- size = 9.76
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- End
- End
- Begin GroupLib.ctGroup ctGroup2
- Height = 2355
- Left = 4140
- TabIndex = 4
- Top = 2280
- Width = 2055
- _version = 65536
- _extentx = 3625
- _extenty = 4154
- _stockprops = 70
- caption = "Radio Buttons"
- BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- name = "MS Sans Serif"
- charset = 0
- weight = 700
- size = 8.25
- underline = 0 'False
- italic = 0 'False
- strikethrough = 0 'False
- EndProperty
- alignment = 1
- bordertype = 1
- Begin RadioLib.ctRadio ctRadio4
- Height = 315
- Left = 360
- TabIndex = 12
- Top = 1740
- Width = 1395
- _version = 65536
- _extentx = 2461
- _extenty = 556
- _stockprops = 70
- caption = "User Defined"
- picturetrue = "ct_genrl.frx":0A54
- picturefalse = "ct_genrl.frx":0BE6
- picstyle = 0
- alignment = 1
- showfocus = -1 'True
- End
- Begin RadioLib.ctRadio ctRadio3
- Height = 315
- Left = 360
- TabIndex = 11
- Top = 1260
- Width = 1395
- _version = 65536
- _extentx = 2461
- _extenty = 556
- _stockprops = 70
- caption = "Style #3"
- picturetrue = "ct_genrl.frx":0D78
- picturefalse = "ct_genrl.frx":0D94
- picstyle = 3
- alignment = 1
- End
- Begin RadioLib.ctRadio ctRadio2
- Height = 315
- Left = 360
- TabIndex = 10
- Top = 780
- Width = 1395
- _version = 65536
- _extentx = 2461
- _extenty = 556
- _stockprops = 70
- caption = "Style #2"
- picturetrue = "ct_genrl.frx":0DB0
- picturefalse = "ct_genrl.frx":0DCC
- picstyle = 2
- alignment = 1
- End
- Begin RadioLib.ctRadio ctRadio1
- Height = 315
- Left = 360
- TabIndex = 9
- Top = 300
- Width = 1395
- _version = 65536
- _extentx = 2461
- _extenty = 556
- _stockprops = 70
- caption = "Style #1"
- picturetrue = "ct_genrl.frx":0DE8
- picturefalse = "ct_genrl.frx":0E04
- alignment = 1
- value = -1 'True
- End
- End
- Attribute VB_Name = "w_general_demo"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Private Sub Command1_Click()
- Unload w_general_demo
- End Sub
- Private Sub Form_Load()
- ' Center the window on the screen
- Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.15
- End Sub
-